Plot[s=e^(-(k+1)(1-s)),{k,1,15},{s,0,0.2}]